Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2022 Altair Engineering Inc.
Copyright>    
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>    
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>    
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>    
Copyright>    
Copyright>        Commercial Alternative: Altair Radioss Software 
Copyright>    
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss 
Copyright>        software under a commercial license.  Contact Altair to discuss further if the 
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.    
!       Material & element costs
!       optimized for Skylake machine (AVX512)
!       Used machine : Pico --> Intel(R) Xeon(R) Gold 6248 CPU @ 2.50GHz
  

! temps de reference correspond au temps /elt/materiaux loi2 0 pt integ
       TPSREF =  .0000002492      !.0000001927      !.0000007658      

! -------------
!    SOLIDES
! -------------


!   Tableau SOL1TNL
!   ---------------
!
!   Temps par elt/cycle pour les materiaux solides
!   SOL1TNL(I,J)=
!   1er  Champ : numero du materiaux
!   2eme Option particuliere
!

!   Tableau SOL8TNL
!   ---------------
!
!   SOL8TNL(I,J)=
!   1er  Champ : numero du materiux
!   2eme Option particuliere
!

!   Tableau SOLTELT
!   ---------------
!
!   Temps de traitement de l'hourglas et des routines elts /elt/cycle
!
!   SOLTELT(I)=
!   1er  Champ : option d'hourglas

       DO J=1,3
         DO I=0,MAXLAW
          SOL1TNL(I,J) = .0000001047  !.0000000700  !.0000001512    
          SOL8TNL(I,J) = .0000004822  !.0000003250  !.0000006297   
          TET4TNL(I,J) = .0000000937  !.0000000640  !.0000001542   
          TET10TNL(I,J)= .0000003522  !.0000002339  !.0000005545   
         ENDDO
        ENDDO
!       special option for solid
        SOL_OPTION(1:10,1:5) = 0.
!       special option for non-local
        NLOCAL_OPTION(1:10) = 0.
!     LAW 01
       SOL1TNL(1,1) = .0000000858  !.0000000556  !.0000001301    
       SOL8TNL(1,1) = .0000001996  !.0000001336  !.0000003212    
       TET4TNL(1,1) = .0000000762  !.0000000495  !.0000001229   
       TET10TNL(1,1)= .0000002815  !.0000001925  !.0000004662    
!     LAW 02
       SOL1TNL(2,1) = .0000001047  !.0000000700  !.0000001512    
       SOL8TNL(2,1) = .0000004822  !.0000003250  !.0000006297   
       TET4TNL(2,1) = .0000000937  !.0000000640  !.0000001542   
       TET10TNL(2,1)= .0000003522  !.0000002339  !.0000005545   
!     LAW 02 ICC=1
       SOL1TNL(2,2) = .0000001302  !.0000000951  !.0000002051   
       SOL8TNL(2,2) = .0000006944  !.0000004699  !.0000010080   
       TET4TNL(2,2) = .0000001198  !.0000000890  !.0000001820   
       TET10TNL(2,2)= .0000004568  !.0000003051  !.0000007670   
!     LAW 03
       SOL1TNL(3,1) = .0000001450  !.0000001010  !.0000002145    
       SOL8TNL(3,1) = .0000011050  !.0000007280  !.0000006086
       TET4TNL(3,1) = .0000001360  !.0000001006  !.0000002292   
       TET10TNL(3,1)= .0000005400  !.0000003600  !.0000009112   
!     LAW 04
       SOL1TNL(4,1) = .0000001810  !.0000001150  !.0000001555
       SOL8TNL(4,1) = .0000014110  !.0000009200  !.0000006050
       TET4TNL(4,1) = .0000001699  !.0000001134  !.0000002547    
       TET10TNL(4,1)= .0000006460  !.0000004300  !.0000009900   
!     LAW 06
       SOL1TNL(6,1) = .0000001300  !.0000000864  !.0000002483    
       SOL8TNL(6,1) = .0000009100  !.0000006910  !.0000006004
       TET4TNL(6,1) = .0000001200  !.0000000820  !.0000002412   
       TET10TNL(6,1)= .0000004700  !.0000003280  !.0000007858   
!     LAW 10
       SOL1TNL(10,1) = .0000001128  !.0000000732  !.0000002024  
       SOL8TNL(10,1) = .0000008037  !.0000005992  !.0000013650  
       TET4TNL(10,1) = .0000001001  !.0000000660  !.0000001815  
       TET10TNL(10,1)= .0000003798  !.0000002570  !.0000006534  
!     LAW 12
       SOL1TNL(12,1) = .0000002394  !.0000001630  !.0000003941  
       SOL8TNL(12,1) = .0000018070  !.0000013930  !.0000038700  
       TET4TNL(12,1) = .0000002244  !.0000001545  !.0000003670  
       TET10TNL(12,1)= .0000008822  !.0000005915  !.0000013560  
!     LAW 21
       SOL1TNL(21,1) = .0000001126  !.0000000700  !.0000001872  
       SOL8TNL(21,1) = .0000008074  !.0000005600  !.0000013840  
       TET4TNL(21,1) = .0000000996  !.0000000906  !.0000001811  
       TET10TNL(21,1)= .0000003798  !.0000002529  !.0000006885  
!     LAW 22
       SOL1TNL(22,1) = .0000001180  !.0000000740  !.0000001854  
       SOL8TNL(22,1) = .0000008551  !.0000006025  !.0000013990  
       TET4TNL(22,1) = .0000001050  !.0000000696  !.0000001663  
       TET10TNL(22,1)= .0000004120  !.0000002694  !.0000007349  
!     LAW 23
       SOL1TNL(23,1) = .0000001200  !.0000000780  !.0000001890  
       SOL8TNL(23,1) = .0000008699  !.0000006269  !.0000014360  
       TET4TNL(23,1) = .0000001073  !.0000000708  !.0000001850  
       TET10TNL(23,1)= .0000004130  !.0000002767  !.0000007381  
!     LAW 24
       SOL1TNL(24,1) = .0000003024  !.0000002029  !.0000006082  
       SOL8TNL(24,1) = .0000022760  !.0000015870  !.0000042810  
       TET4TNL(24,1) = .0000002885  !.0000001965  !.0000004260
       TET10TNL(24,1)= .0000011390  !.0000008094  !.0000020050
!     LAW 25
       SOL1TNL(25,1) = .0000002168  !.0000001463  !.0000004227
       SOL8TNL(25,1) = .0000016240  !.0000011740  !.0000031570 
       TET4TNL(25,1) = .0000002085  !.0000001388  !.0000003445 
       TET10TNL(25,1)= .0000008234  !.0000005631  !.0000016050 
!     LAW 28
       SOL1TNL(28,1) = .0000002598  !.0000002796  !.0000003664 
       SOL8TNL(28,1) = .0000017400  !.0000019590  !.0000021385 
       TET4TNL(28,1) = .0000002400  !.0000002706  !.0000003168 
       TET10TNL(28,1)= .0000010550  !.0000012226  !.0000013620 
!     LAW 33  0 fct
       SOL1TNL(33,1) = .0000002037  !.0000001307  !.0000004453 
       SOL8TNL(33,1) = .0000012670  !.0000008472  !.0000021870 
       TET4TNL(33,1) = .0000001778  !.0000001152  !.0000004027 
       TET10TNL(33,1)= .0000006775  !.0000004627  !.0000015750 
!     LAW 33  1 fct
       SOL1TNL(33,2) = .0000003314  !.0000002168  !.0000006103 
       SOL8TNL(33,2) = .0000023110  !.0000015580  !.0000025320 
       TET4TNL(33,2) = .0000003050  !.0000001975  !.0000005659  
       TET10TNL(33,2)= .0000012100  !.0000007945  !.0000018270 
!     LAW 34
       SOL1TNL(34,1) = .0000001404  !.0000000885  !.0000002516  
       SOL8TNL(34,1) = .0000007640  !.0000005305  !.0000012240  
       TET4TNL(34,1) = .0000001307  !.0000000864  !.0000002258  
       TET10TNL(34,1)= .0000005092  !.0000003467  !.0000008617 
!     LAW 35
       SOL1TNL(35,1) = .0000001512  !.0000000964  !.0000003070  
       SOL8TNL(35,1) = .0000008688  !.0000005900  !.0000017020  
       TET4TNL(35,1) = .0000001460  !.0000000961  !.0000002691  
       TET10TNL(35,1)= .0000005651  !.0000003747  !.0000010870  
!     LAW 36 1 fonction
       SOL1TNL(36,1) = .0000001721  !.0000001103  !.0000003096  
       SOL8TNL(36,1) = .0000009919  !.0000006723  !.0000016040 
       TET4TNL(36,1) = .0000001632  !.0000001070  !.0000002877
       TET10TNL(36,1)= .0000006291  !.0000004051  !.0000009584
!     LAW 36 5 fonctions
       SOL1TNL(36,2) = .0000001877  !.0000001200  !.0000003358 
       SOL8TNL(36,2) = .0000014650  !.0000006900  !.0000016420 
       TET4TNL(36,2) = .0000001750  !.0000001100  !.0000002724 
       TET10TNL(36,2)= .0000006650  !.0000004100  !.0000010120 
!     LAW 36 10 fonctions
       SOL1TNL(36,3) = .0000002064  !.0000001300  !.0000003702 
       SOL8TNL(36,3) = .0000016090  !.0000007000  !.0000016950 
       TET4TNL(36,3) = .0000002000  !.0000001150  !.0000002854 
       TET10TNL(36,3)= .0000007800  !.0000004200  !.0000010970 
!     LAW 38
       SOL1TNL(38,1) = .0000004665  !.0000003164  !.0000008197   
       SOL8TNL(38,1) = .0000033660  !.0000022720  !.0000057300   
       TET4TNL(38,1) = .0000003855  !.0000002603  !.0000006935   
       TET10TNL(38,1)= .0000015320  !.0000010100  !.0000025160   
!     LAW 40
       SOL1TNL(40,1) = .0000002040  !.0000001303  !.0000004917   
       SOL8TNL(40,1) = .0000013660  !.0000008978  !.0000030250   
       TET4TNL(40,1) = .0000001898  !.0000001282  !.0000004015   
       TET10TNL(40,1)= .0000007526  !.0000004790  !.0000013700   
!     LAW 41
       SOL1TNL(41,1) = .0000002549  !.0000001671  !.0000004092
       SOL8TNL(41,1) = .0000019880  !.0000020390  !.0000030250 
       TET4TNL(41,1) = .0000002874  !.0000001923  !.0000004068
       TET10TNL(41,1)= .0000011320  !.0000007760  !.0000017520
!     LAW 42
       SOL1TNL(42,1) = .0000002754  !.0000001783  !.0000006159
       SOL8TNL(42,1) = .0000018460  !.0000012270  !.0000041410
       TET4TNL(42,1) = .0000002556  !.0000001650  !.0000006126 
       TET10TNL(42,1)= .0000009823  !.0000006596  !.0000023340 
C M = 1 
       SOL1TNL(42,2) = .0000003066  !.0000002003  !.0000006763 
       SOL8TNL(42,2) = .0000020470  !.0000013980  !.0000045820 
       TET4TNL(42,2) = .0000002822  !.0000001855  !.0000006537 
       TET10TNL(42,2)= .0000010900  !.0000007557  !.0000023430 
C M = 2 
       SOL1TNL(42,3) = .0000003275  !.0000002193  !.0000007634 
       SOL8TNL(42,3) = .0000021700  !.0000014950  !.0000051210 
       TET4TNL(42,3) = .0000002901  !.0000001899  !.0000006823 
       TET10TNL(42,3)= .0000011330  !.0000007831  !.0000027020 
!     LAW 44
       SOL1TNL(44,1) = .0000001750  !.0000001120  !.0000003088 
       SOL8TNL(44,1) = .0000010900  !.0000007326  !.0000016320 
       TET4TNL(44,1) = .0000001775  !.0000001194  !.0000002999 
       TET10TNL(44,1)= .0000006547  !.0000004164  !.0000010160 
!     LAW 48
       SOL1TNL(48,1) = .0000001872  !.0000001223  !.0000002994 
       SOL8TNL(48,1) = .0000012240  !.0000008252  !.0000015830 
       TET4TNL(48,1) = .0000001781  !.0000001190  !.0000002660 
       TET10TNL(48,1)= .0000007016  !.0000004441  !.0000009488 
!     LAW 50
       SOL1TNL(50,1) = .0000003108  !.0000002051  !.0000004482 
       SOL8TNL(50,1) = .0000021920  !.0000014810  !.0000027100 
       TET4TNL(50,1) = .0000002728  !.0000001858  !.0000004178 
       TET10TNL(50,1)= .0000012690  !.0000008257  !.0000018130 
!     LAW 52
       SOL1TNL(52,1) = .0000001674  !.0000001121  !.0000002826 
       SOL8TNL(52,1) = .0000010590  !.0000007335  !.0000015560 
       TET4TNL(52,1) = .0000001549  !.0000001024  !.0000002650 
       TET10TNL(52,1)= .0000006149  !.0000003935  !.0000010590 
!     LAW 53
       SOL1TNL(53,1) = .0000002179  !.0000001408  !.0000004006 
       SOL8TNL(53,1) = .0000013770  !.0000009253  !.0000022760 
       TET4TNL(53,1) = .0000002065  !.0000001358  !.0000003889 
       TET10TNL(53,1)= .0000008063  !.0000005273  !.0000014540 
!     LAW 59 (user solid property) IGT=43
       SOL1TNL(59,1) = .0000001496  !.0000001028  !.0000002207 
       SOL8TNL(59,1) = .0000001496  !.0000001028  !.0000002207 
       TET4TNL(59,1) = .0000001496  !.0000001028  !.0000002207 
       TET10TNL(59,1)= .0000001496  !.0000001028  !.0000002207 
!     LAW 60
       SOL1TNL(60,1) = .0000002415  !.0000001584  !.0000004239   
       SOL8TNL(60,1) = .0000015600  !.0000010710  !.0000024010  
       TET4TNL(60,1) = .0000002174  !.0000001485  !.0000003718  
       TET10TNL(60,1)= .0000008970  !.0000006158  !.0000014290  
!     LAW 62
       ! M = 0
       SOL1TNL(62,1) = .0000004174  !.0000002929  !.0000009680  
       SOL8TNL(62,1) = .0000032200  !.0000023400  !.0000068900  
       TET4TNL(62,1) = .0000003950  !.0000002800  !.0000009896 
       TET10TNL(62,1)= .0000015010  !.0000011200  !.0000039430
       ! M = 1
       SOL1TNL(62,2) = .0000004554  !.0000003280  !.0000010850
       SOL8TNL(62,2) = .0000035520  !.0000026700  !.0000078600
       TET4TNL(62,2) = .0000004300  !.0000003200  !.0000010760
       TET10TNL(62,2)= .0000016300  !.0000013200  !.0000043120
       ! M = 2
       SOL1TNL(62,3) = .0000004789  !.0000003460  !.0000011420
       SOL8TNL(62,3) = .0000037800  !.0000028700  !.0000084600 
       TET4TNL(62,3) = .0000004700  !.0000003400  !.0000011150  
       TET10TNL(62,3)= .0000017860  !.0000013600  !.0000045435 
!     LAW 65
       SOL1TNL(65,1) = .0000002518  !.0000001685  !.0000004282 
       SOL8TNL(65,1) = .0000018560  !.0000014530  !.0000030270 
       TET4TNL(65,1) = .0000002325  !.0000001563  !.0000003897 
       TET10TNL(65,1)= .0000009361  !.0000006260  !.0000015160 
!     LAW 66
       SOL1TNL(66,1) = .0000001995  !.0000001312  !.0000005367 
       SOL8TNL(66,1) = .0000014480  !.0000009792  !.0000031200 
       TET4TNL(66,1) = .0000001903  !.0000001303  !.0000003860 
       TET10TNL(66,1)= .0000007459  !.0000004765  !.0000015470 
!     LAW 68
       SOL1TNL(68,1) = .0000004163  !.0000002812  !.0000006413 
       SOL8TNL(68,1) = .0000032500  !.0000022450  !.0000028940
       TET4TNL(68,1) = .0000003950  !.0000002800  !.0000006475   
       TET10TNL(68,1)= .0000015100  !.0000011200  !.0000025900   
!     LAW 69
       ! M = 0 (no visc)
       SOL1TNL(69,1) = .0000002307  !.0000001474  !.0000005245 
       SOL8TNL(69,1) = .0000016880  !.0000012990  !.0000040350 
       TET4TNL(69,1) = .0000002146  !.0000001417  !.0000005135 
       TET10TNL(69,1)= .0000008195  !.0000005402  !.0000020020 
       ! M = 1 (visc)
       SOL1TNL(69,2) = .0000003525  !.0000002314  !.0000006120 
       SOL8TNL(69,2) = .0000026350  !.0000016670  !.0000048180 
       TET4TNL(69,2) = .0000003335  !.0000002211  !.0000006347 
       TET10TNL(69,2)= .0000012980  !.0000008437  !.0000024700 
       ! M = 2 (visc)
       SOL1TNL(69,3) = .0000003577  !.0000002422  !.0000006370 
       SOL8TNL(69,3) = .0000026840  !.0000016960  !.0000051600 
       TET4TNL(69,3) = .0000003379  !.0000002260  !.0000006740 
       TET10TNL(69,3)= .0000013290  !.0000008731  !.0000025500 
!     LAW 70 
!     1 funct / 22 points
       SOL1TNL(70,1) = .0000001832  !.0000002354  !.0000003853 
       SOL8TNL(70,1) = .0000015060  !.0000015510  !.0000026830 
       TET4TNL(70,1) = .0000001800  !.0000002312  !.0000003395 
       TET10TNL(70,1)= .0000007280  !.0000008120  !.0000013970 
!     overcost number of point
       SOL1TNL(70,2) = .0000000014  
       SOL8TNL(70,2) = .0000000112
       TET4TNL(70,2) = .0000000013  
       TET10TNL(70,2)= .0000000052 
!     overcost number of function
       SOL1TNL(70,3) = .0000000006  
       SOL8TNL(70,3) = .0000000048
       TET4TNL(70,3) = .0000000005  
       TET10TNL(70,3)= .0000000020 
!     LAW 71
       SOL1TNL(71,1) = .0000003106  !.0000002139  !.0000006332 
       SOL8TNL(71,1) = .0000022870  !.0000005987  !.0000021590 
       TET4TNL(71,1) = .0000001963  !.0000001303  !.0000004840 
       TET10TNL(71,1)= .0000007662  !.0000004969  !.0000018860 
!     LAW 72
       SOL1TNL(72,1) = .0000001604  !.0000001024  !.0000004335 
       SOL8TNL(72,1) = .0000011490  !.0000007460  !.0000032810 
       TET4TNL(72,1) = .0000001526  !.0000000999  !.0000003947 
       TET10TNL(72,1)= .0000005878  !.0000003764  !.0000016170  
!     LAW 74
       SOL1TNL(74,1) = .0000002353  !.0000001546  !.0000003704  
       SOL8TNL(74,1) = .0000017440  !.0000013200  !.0000027610 
       TET4TNL(74,1) = .0000002244  !.0000001514  !.0000003402
       TET10TNL(74,1)= .0000008874  !.0000005876  !.0000013590   
!     LAW 76
       SOL1TNL(76,1) = .0000001691  !.0000001097  !.0000002745  
       SOL8TNL(76,1) = .0000012200  !.0000007951  !.0000021280 
       TET4TNL(76,1) = .0000001618  !.0000001073  !.0000002739 
       TET10TNL(76,1)= .0000006237  !.0000004039  !.0000011500  
!     LAW 77
       SOL1TNL(77,1) = .0000003195  !.0000002322  !.0000004887  
       SOL8TNL(77,1) = .0000024900  !.0000018570  !.0000038100   
       TET4TNL(77,1) = .0000003000  !.0000002280  !.0000005200   
       TET10TNL(77,1)= .0000012000  !.0000009120  !.0000020120   
!     LAW 78
       SOL1TNL(78,1) = .0000001681  !.0000001091  !.0000003087   
       SOL8TNL(78,1) = .0000011910  !.0000007906  !.0000023090   
       TET4TNL(78,1) = .0000001589  !.0000001072  !.0000002902   
       TET10TNL(78,1)= .0000006161  !.0000003944  !.0000012520   
!     LAW 79
       SOL1TNL(79,1) = .0000001536  !.0000001013  !.0000003060  
       SOL8TNL(79,1) = .0000010960  !.0000007296  !.0000020220  
       TET4TNL(79,1) = .0000001460  !.0000000969  !.0000002684   
       TET10TNL(79,1)= .0000005627  !.0000003681  !.0000011400   
!     LAW 81
       SOL1TNL(81,1) = .0000003597  !.0000002316  !.0000004223   
       SOL8TNL(81,1) = .0000027200  !.0000016720  !.0000031430  
       TET4TNL(81,1) = .0000003380  !.0000002159  !.0000002750 
       TET10TNL(81,1)= .0000012840  !.0000008423  !.0000012470    
!     LAW 82
       ! M = 1
       SOL1TNL(82,1) = .0000004500
       SOL8TNL(82,1) = .0000036000
       TET4TNL(82,1) = .0000004400
       TET10TNL(82,1)= .0000017600
       ! M = 2
       SOL1TNL(82,2) = .0000005500
       SOL8TNL(82,2) = .0000045000
       TET4TNL(82,2) = .0000005400
       TET10TNL(82,2)= .0000020600
       ! M = 3
       SOL1TNL(82,3) = .0000007300
       SOL8TNL(82,3) = .0000058400
       TET4TNL(82,3) = .0000007180
       TET10TNL(82,3)= .0000028700
!     LAW 83 (user solid property) IGT=43
       SOL1TNL(83,1) = .0000011010  !.0000087740  !.0000013690  
       SOL8TNL(83,1) = .0000011010  !.0000087740  !.0000013690  
       TET4TNL(83,1) = .0000011010  !.0000087740  !.0000013690
       TET10TNL(83,1)= .0000011010  !.0000087740  !.0000013690
!     LAW 84
       SOL1TNL(84,1) = .0000001577  !.0000001032  !.0000002771
       SOL8TNL(84,1) = .0000011260  !.0000007414  !.0000018140
       TET4TNL(84,1) = .0000001490  !.0000001001  !.0000002489
       TET10TNL(84,1)= .0000005753  !.0000003790  !.0000007861
!     LAW 88
       SOL1TNL(88,1) = .0000001900  !.0000003902
       SOL8TNL(88,1) = .0000014000  !.0000296600
       TET4TNL(88,1) = .0000001800  !.0000003749
       TET10TNL(88,1)= .0000006300  !.0000014590
!     LAW 90
!       SOL1TNL(90,1) = .000000    
!     LAW 92
       SOL1TNL(92,1) = .0000002360  
       SOL8TNL(92,1) = .0000017340  
       TET4TNL(92,1) = .0000002193  
       TET10TNL(92,1)= .0000008390  
!     LAW 95
       SOL1TNL(95,1) = .0000002493  
       SOL8TNL(95,1) = .0000018090  
       TET4TNL(95,1) = .0000002246  
       TET10TNL(95,1)= .0000009194
!     LAW 97
       SOL1TNL(97,1) = .0000001729
       SOL8TNL(97,1) = .0000012030  
       TET4TNL(97,1) = .0000001560  
       TET10TNL(97,1)= .0000006190

!     LAW 100 : material cost = base cost + viscosity cost + N * network cost
!     LAW 100 (base)
       SOL1TNL(100,1) = .0000002280
       SOL8TNL(100,1) = .0000002280
       TET4TNL(100,1) = .0000002280
       TET10TNL(100,1)= .0000002280

!     LAW 100 (viscosity)
       SOL1TNL(100,2) = .0000001390
       SOL8TNL(100,2) = .0000001390
       TET4TNL(100,2) = .0000001390
       TET10TNL(100,2)= .0000001390

!     LAW 100 (network)
       SOL1TNL(100,3) = .0000002000
       SOL8TNL(100,3) = .0000002000
       TET4TNL(100,3) = .0000002000
       TET10TNL(100,3)= .0000002000 
!     LAW 101
!       SOL1TNL(101,1) = .0000002493
!       SOL8TNL(101,1) = .0000018090
!       TET4TNL(101,1) = .0000002246
!       TET10TNL(101,1)= .0000009194
!     LAW 102
       SOL1TNL(102,1) = .0000001649
       SOL8TNL(102,1) = .0000011640
       TET4TNL(102,1) = .0000001553
       TET10TNL(102,1)= .0000006200
!     LAW 103
       SOL1TNL(103,1) = .0000001758
       SOL8TNL(103,1) = .0000012850
       TET4TNL(103,1) = .0000001667
       TET10TNL(103,1)= .0000006700
!     LAW 104
       ! Nice algo
       SOL1TNL(104,1) = .0000001464
       SOL8TNL(104,1) = .0000001464
       TET4TNL(104,1) = .0000001464
       TET10TNL(104,1) = .0000001464
       ! Newton algo
       SOL1TNL(104,2) = .0000001843
       SOL8TNL(104,2) = .0000001843
       TET4TNL(104,2) = .0000001843
       TET10TNL(104,2) = .0000001843
       ! iloc=1
       SOL_OPTION(1,1) = .0000000400
       ! iloc=2
       SOL_OPTION(1,2) = .0000000500
       ! iloc=3
       SOL_OPTION(1,3) = .0000000900
!     LAW 106
!       SOL1TNL(106,1) = .0000002493
!       SOL8TNL(106,1) = .0000018090
!       TET4TNL(106,1) = .0000002246
!       TET10TNL(106,1)= .0000009194
!     LAW 187
       SOL1TNL(187,1) = .0000007818
       SOL8TNL(187,1) = .0000058570
       TET4TNL(187,1) = .0000002434
       TET10TNL(187,1)= .0000012160

       IF (IPARI0.EQ.1) THEN
!        SOLTELT : 
!        1 --> ISOLID = 1
!        2 --> ISOLID = 2
!        3 --> ISOLID = 24
!        4 --> ISOLID = 12
!        5 --> ISOLID = 14 HA8 with NPT=2*2*2 (fixed part of element cost)
!        6 --> ISOLID = 14 HA8 (overcost for NPT > 2*2*2)
!              HA8 cost : COST = HA8 (222) cost + (NPT-8) * overcost
!        7 --> ISOLID = 17 H8C
!        8 --> IGTYP  = 43
!        9 --> ISOLID = 18 H8C
!        10--> IGTYP  = Thickshell 20 or 21 or 22
!        11--> JHBE=15 : fixed part of element cost
!        12--> JHBE=15 : overcost for N>1
!        NLOCAL_OPTION
!        1 --> sol
!        2 --> shell
!
!        TET4ELT :
!        1 --> TETRA 4
!        2 --> TETRA 4 with IROT = 1
!        TETRA10ELT
!        1 --> TETRA10

         SOLTELT(1)  =.0000003163 
         SOLTELT(2)  =.0000002903 
         SOLTELT(3)  =.0000004425 
         SOLTELT(4)  =.0000006316 
         SOLTELT(5)  =.0000014720 
         SOLTELT(6)  =.0000001380 
         SOLTELT(7)  =.0000011885 
         SOLTELT(8)  =.0000005360 
         SOLTELT(9)  =.0000014650
         SOLTELT(10) =.0000001923
         SOLTELT(11) =.0000005789
         SOLTELT(12) =.0000000466

         NLOCAL_OPTION(1) = .0000001100
         TET4TELT(1) =.0000001979 
         TET4TELT(2) =.0000007503 
         TET10TELT(1)=.0000008108 
       ELSE
         SOLTELT(1)  =.0000002635
         SOLTELT(2)  =.0000002419
         SOLTELT(3)  =.0000003687
         SOLTELT(4)  =.0000005263
         SOLTELT(5)  =.0000012780
         SOLTELT(6)  =.0000001219
         SOLTELT(7)  =.0000009904
         SOLTELT(8)  =.0000004466
         SOLTELT(9)  =.0000012200
         SOLTELT(10) =.0000001600
         SOLTELT(11) =.0000004847
         SOLTELT(12) =.0000000388
         NLOCAL_OPTION(1) = .0000001100
         TET4TELT(1) =.0000001646
         TET4TELT(2) =.0000006252
         TET10TELT(1)=.0000006756
       ENDIF

! -------------
!    Coques
! -------------



!   Tableau SHTNL
!   ---------------
!
!   Temps par elt/cycle pour les materieux coques
!   SHTNL(I,J,K)=
!   1er  Champ : numero du materiaux
!   2 champs : nbre de pts d integration, de taille 0:4
!              4 sont consideres :
!              * 0 : 0pt d integ
!              * 1 : 1pt d integ
!              * 2 : 3pt d integ
!              * 3 : 5pt d integ
!              Les autres temps pour les NPT, sont calculees par interpolation avec ces 3
!              valeurs.
!
!   3e champ : option particuliere au besoin
!
! -------------
!    Triangles
! -------------

!   Tableau TRITNL
!   ---------------
!
!   Temps par elt/cycle pour les materieux coques
!   TRITNL(I,J,K)=
!   1er  Champ : numero du materiaux
!   2e champ : nbre de pts d integration, de taille 0:4
!              4 sont consideres :
!              * 0 : 0pt d integ
!              * 1 : 1pt d integ
!              * 2 : 3pt d integ
!              * 3 : 5pt d integ
!              Les autres temps pour les NPT, sont calculees par interpolation avec ces 3
!              valeurs.
!
!   3e champ : option particuliere au besoin
!
!
!   Tableau TRITELT
!   ---------------
!
!  Temps par elt/cycle pour le traitement de l hourglas en fct de /IPARITH
!   --------------------
        DO I=1,3
                DO J = 0, MAXLAW
                        SHTNL(J,0,I) = .0000000585 
                        SHTNL(J,1,I) = .0000000903 
                        SHTNL(J,2,I) = .0000001578 
                        SHTNL(J,3,I) = .0000002326
C
                        TRITNL(J,0,I)= .0000000620 
                        TRITNL(J,1,I)= .0000000686 
                        TRITNL(J,2,I)= .0000001132 
                        TRITNL(J,3,I)= .0000001630 
                ENDDO
        ENDDO
!       special option for shell or shell3n
        SHTNL_OPTION(1:10,1:5) = 0.
!   --------------------
!     LAW 01
         SHTNL(1,0,1) = .0000000440 
         SHTNL(1,1,1) = .0000000440 
         SHTNL(1,2,1) = .0000000440 
         SHTNL(1,3,1) = .0000000453 
C
         TRITNL(1,0,1)= .0000000360 
         TRITNL(1,1,1)= .0000000343 
         TRITNL(1,2,1)= .0000000361 
         TRITNL(1,3,1)= .0000000368 
!     LAW 02
         SHTNL(2,0,1) = .0000000585 !.0000000633
         SHTNL(2,1,1) = .0000000903 !.0000000804
         SHTNL(2,2,1) = .0000001578 !.0000001340
         SHTNL(2,3,1) = .0000002326 !.0000001894 
C
         TRITNL(2,0,1)= .0000000620 
         TRITNL(2,1,1)= .0000000686 !.0000000750 
         TRITNL(2,2,1)= .0000001132 !.0000001250 
         TRITNL(2,3,1)= .0000001630 !.0000001800 
!     LAW 02 CC
         SHTNL(2,0,2) = .0000000684 !.0000000730 
         SHTNL(2,1,2) = .0000000974 !.0000000877 
         SHTNL(2,2,2) = .0000001785 !.0000001517 
         SHTNL(2,3,2) = .0000002663 !.0000002208 
C
         TRITNL(2,0,2)= .0000000720 
         TRITNL(2,1,2)= .0000000750 !.0000000850 
         TRITNL(2,2,2)= .0000001355 !.0000001500 
         TRITNL(2,3,2)= .0000001979 !.0000002150 
!     LAW 15
         SHTNL(15,0,1) = .0000001666 !.0000001550
         SHTNL(15,1,1) = .0000001670 !.0000001550 !.0000001547
         SHTNL(15,2,1) = .0000003758 !.0000003610
         SHTNL(15,3,1) = .0000005853 !.0000005627
C
         TRITNL(15,0,2)= .0000001480
         TRITNL(15,1,2)= .0000001475
         TRITNL(15,2,2)= .0000003550
         TRITNL(15,3,2)= .0000005580

!     LAW 19
         SHTNL(19,0,1) = .0000000707 !.0000000734
         SHTNL(19,1,1) = .0000000707 !.0000000738
         SHTNL(19,2,1) = .0000001154 !.0000001203
         SHTNL(19,3,1) = .0000001609 !.0000001628
C
         TRITNL(19,0,1)= .0000000650
         TRITNL(19,1,1)= .0000000650
         TRITNL(19,2,1)= .0000001150
         TRITNL(19,3,1)= .0000001550
!     LAW 22
         SHTNL(22,0,1) = .0000000908 !.0000000684
         SHTNL(22,1,1) = .0000001131 !.0000001121
         SHTNL(22,2,1) = .0000002179 !.0000001954
         SHTNL(22,3,1) = .0000003294 !.0000003015
C
         TRITNL(22,0,1)= .0000000908
         TRITNL(22,1,1)= .0000000963 !.0000000984
         TRITNL(22,2,1)= .0000001935 !.0000001865
         TRITNL(22,3,1)= .0000002945 !.0000002989
!     LAW 25  
         SHTNL(25,0,1) = .0000001202
         SHTNL(25,1,1) = .0000001208
         SHTNL(25,2,1) = .0000002481
         SHTNL(25,3,1) = .0000003783
C
         TRITNL(25,0,1)= .0000001100
         TRITNL(25,1,1)= .0000001120
         TRITNL(25,2,1)= .0000002400
         TRITNL(25,3,1)= .0000003800
!     LAW 25 Crasurv (/TYPE11)
         SHTNL(25,0,2) = .0000002129
         SHTNL(25,1,2) = .0000002120
         SHTNL(25,2,2) = .0000004848
         SHTNL(25,3,2) = .0000007574
C
         TRITNL(25,0,2)= .0000001750
         TRITNL(25,1,2)= .0000001750
         TRITNL(25,2,2)= .0000004600
         TRITNL(25,3,2)= .0000006600
!     LAW 27 (0pt incompatible)
         SHTNL(27,0,1) = .0000001270 !.0000001400
         SHTNL(27,1,1) = .0000001270 !.0000001416
         SHTNL(27,2,1) = .0000002660 !.0000003213
         SHTNL(27,3,1) = .0000004185 !.0000005054
C
         TRITNL(27,0,1)= .0000001053
         TRITNL(27,1,1)= .0000001119 !.0000001053
         TRITNL(27,2,1)= .0000002537 !.0000002544
         TRITNL(27,3,1)= .0000004037 !.0000004107
!     LAW 32
         SHTNL(32,0,1) = .0000000792 !.0000000665
         SHTNL(32,1,1) = .0000000792 !.0000000665
         SHTNL(32,2,1) = .0000001343 !.0000001161
         SHTNL(32,3,1) = .0000001922 !.0000001711
C
         TRITNL(32,0,1)= .0000000713 !.0000000601
         TRITNL(32,1,1)= .0000000713 !.0000000601
         TRITNL(32,2,1)= .0000001360 !.0000001219
         TRITNL(32,3,1)= .0000002002 !.0000001836
!     LAW 35 (0pt incompatible)
         SHTNL(35,0,1) = .0000001391
         SHTNL(35,1,1) = .0000001391
         SHTNL(35,2,1) = .0000002713
         SHTNL(35,3,1) = .0000004261
C
         TRITNL(35,0,1)= .0000000980
         TRITNL(35,1,1)= .0000000980
         TRITNL(35,2,1)= .0000001960
         TRITNL(35,3,1)= .0000003919
!     LAW 36 - 1 fct
         SHTNL(36,0,1) = .0000001000 !.0000000964 !.0000002453 
         SHTNL(36,1,1) = .0000001281 !.0000001215 !.0000002975  
         SHTNL(36,2,1) = .0000002456 !.0000002050 !.0000005370  
         SHTNL(36,3,1) = .0000003851 !.0000002888 !.0000007957  
!             5 fct
         SHTNL(36,0,2) = .0000001050 !.0000001076  !.0000002832     
         SHTNL(36,1,2) = .0000001438 !.0000001417  !.0000003655     
         SHTNL(36,2,2) = .0000002724 !.0000002480  !.0000005902     
         SHTNL(36,3,2) = .0000004310 !.0000003154  !.0000008500     
!              10 fct 
         SHTNL(36,0,3) = .0000001150 !.0000001301  !.0000003180     
         SHTNL(36,1,3) = .0000001620 !.0000001550  !.0000003850     
         SHTNL(36,2,3) = .0000003183 !.0000002624  !.0000006500     
         SHTNL(36,3,3) = .0000005000 !.0000003550  !.0000009020 

!     LAW 36 - 1 fct
         TRITNL(36,0,1)= .0000000824 !.0000000949 !.0000002315   
         TRITNL(36,1,1)= .0000001153 !.0000001208 !.0000003005   
         TRITNL(36,2,1)= .0000002406 !.0000002062 !.0000005141   
         TRITNL(36,3,1)= .0000003828 !.0000002898 !.0000008021 
!              5 fct
         TRITNL(36,0,2)= .0000000999 !.0000001062 !.0000002975     
         TRITNL(36,1,2)= .0000001420 !.0000001418 !.0000003608     
         TRITNL(36,2,2)= .0000002780 !.0000002480 !.0000005945     
         TRITNL(36,3,2)= .0000004353 !.0000003102 !.0000008260   
!              10 fct 
         TRITNL(36,0,3)= .0000001100 !.0000001300 !.0000003060     
         TRITNL(36,1,3)= .0000001600 !.0000001541 !.0000003820     
         TRITNL(36,2,3)= .0000003101 !.0000002622 !.0000006540     
         TRITNL(36,3,3)= .0000004980 !.0000003552 !.0000009000     
!     LAW 42
         SHTNL(42,0,1) = .0000002912 !.0000001981  !.0000005524   
         SHTNL(42,1,1) = .0000002912 !.0000001981  !.0000005524   
         SHTNL(42,2,1) = .0000007362 !.0000004928  !.0000013820   
         SHTNL(42,3,1) = .0000011840 !.0000008058  !.0000022760   
!     LAW 42 M = 1 
         SHTNL(42,0,2) = .0000004000 !.0000002666  !.0000015100   
         SHTNL(42,1,2) = .0000004000 !.0000002666  !.0000015100  
         SHTNL(42,2,2) = .0000010475 !.0000006981  !.0000045280  
         SHTNL(42,3,2) = .0000017115 !.0000011410  !.0000074640  
!     LAW 42 M = 2 
         SHTNL(42,0,3) = .0000004210 !.0000002796  !.0000017720  
         SHTNL(42,1,3) = .0000004210 !.0000002796  !.0000017720  
         SHTNL(42,2,3) = .0000011280 !.0000007499  !.0000053370  
         SHTNL(42,3,3) = .0000018560 !.0000012640  !.0000088600  
!     LAW 42
         TRITNL(42,0,1)= .0000002710 !.0000001907  !.0000005586  
         TRITNL(42,1,1)= .0000002710 !.0000001907  !.0000005586  
         TRITNL(42,2,1)= .0000007088 !.0000004940  !.0000015540  
         TRITNL(42,3,1)= .0000011500 !.0000007806  !.0000022710  
!     LAW 42 M = 1 
         TRITNL(42,0,2)= .0000003832 !.0000002720  !.0000015000  
         TRITNL(42,1,2)= .0000003832 !.0000002720  !.0000015000  
         TRITNL(42,2,2)= .0000010340 !.0000007114  !.0000044580  
         TRITNL(42,3,2)= .0000016890 !.0000011630  !.0000073400  
!     LAW 42 M = 2 
         TRITNL(42,0,3)= .0000004018 !.0000002772  !.0000017200  
         TRITNL(42,1,3)= .0000004018 !.0000002772  !.0000017200  
         TRITNL(42,2,3)= .0000011170 !.0000007621  !.0000052700  
         TRITNL(42,3,3)= .0000018640 !.0000012440  !.0000087000  
!     LAW 43
         SHTNL(43,0,1) = .0000001440 !.0000000958 !.0000002796  
         SHTNL(43,1,1) = .0000001449 !.0000000970 !.0000002918  
         SHTNL(43,2,1) = .0000002896 !.0000001942 !.0000006119  
         SHTNL(43,3,1) = .0000004214 !.0000002907 !.0000009136  
C
         TRITNL(43,0,1)= .0000001350 !.0000000954 !.0000002856   
         TRITNL(43,1,1)= .0000001350 !.0000000945 !.0000002743   
         TRITNL(43,2,1)= .0000002700 !.0000001911 !.0000006279   
         TRITNL(43,3,1)= .0000004050 !.0000002852 !.0000008749   
!     LAW 44
         SHTNL(44,0,1) = .0000001390  !.0000000940  !.0000002640   
         SHTNL(44,1,1) = .0000001390  !.0000000940  !.0000002640  
         SHTNL(44,2,1) = .0000002716  !.0000001841  !.0000005714   
         SHTNL(44,3,1) = .0000004043  !.0000002761  !.0000008505  
C
         TRITNL(44,0,1)= .0000001128 !.0000000891  !.0000002802  
         TRITNL(44,1,1)= .0000001128 !.0000000891  !.0000002802 
         TRITNL(44,2,1)= .0000002328 !.0000001766  !.0000005076  
         TRITNL(44,3,1)= .0000003504 !.0000002572  !.0000007598    
!     LAW 48
         SHTNL(48,0,1) = .0000001529  !.0000001037  !.0000002811   
         SHTNL(48,1,1) = .0000001529  !.0000001037  !.0000002811   
         SHTNL(48,2,1) = .0000003086  !.0000002113  !.0000005285  
         SHTNL(48,3,1) = .0000004696  !.0000003253  !.0000007925  
C
         TRITNL(48,0,1)= .0000001258 !.0000000985  !.0000002764  
         TRITNL(48,1,1)= .0000001258 !.0000000985  !.0000002764  
         TRITNL(48,2,1)= .0000002718 !.0000002039  !.0000005447  
         TRITNL(48,3,1)= .0000004167 !.0000003064  !.0000007677  
!     LAW 52
         SHTNL(52,0,1) = .0000001398  !.0000000930  !.0000002313 
         SHTNL(52,1,1) = .0000001398  !.0000000930  !.0000002313 
         SHTNL(52,2,1) = .0000002699  !.0000001841  !.0000004775 
         SHTNL(52,3,1) = .0000003992  !.0000002788  !.0000007161 
C
         TRITNL(52,0,1)= .0000001154 !.0000000910  !.0000002422 
         TRITNL(52,1,1)= .0000001154 !.0000000910  !.0000002422 
         TRITNL(52,2,1)= .0000002415 !.0000001797  !.0000004612 
         TRITNL(52,3,1)= .0000003696 !.0000002650  !.0000007237 
!     LAW 57
         SHTNL(57,0,1) = .0000001965  !.0000001303  !.0000005039 
         SHTNL(57,1,1) = .0000001965  !.0000001303  !.0000005039 
         SHTNL(57,2,1) = .0000004390  !.0000002981  !.0000013330 
         SHTNL(57,3,1) = .0000006959  !.0000004671  !.0000021130 
C
         TRITNL(57,0,1)= .0000001867 !.0000001377  !.0000005568 
         TRITNL(57,1,1)= .0000001867 !.0000001377  !.0000005568 
         TRITNL(57,2,1)= .0000004672 !.0000003261  !.0000014330 
         TRITNL(57,3,1)= .0000007421 !.0000005104  !.0000022840 
!     LAW 58
!        No visc (FLAGUL==0)
         SHTNL(58,0,1) = .0000003516  !.0000002025  !.0000005435  
         SHTNL(58,1,1) = .0000003516  !.0000003516  !.0000006044  
         SHTNL(58,2,1) = .0000010550  !.0000007109  !.0000017910  
         SHTNL(58,3,1) = .0000017070  !.0000011530  !.0000028510  
C
         TRITNL(58,0,1)= .0000003400  !.0000002113  !.0000005733  
         TRITNL(58,1,1)= .0000003400  !.0000002117  !.0000005733  
         TRITNL(58,2,1)= .0000009800  !.0000006316  !.0000015320  
         TRITNL(58,3,1)= .0000016500  !.0000009908  !.0000023640  
!     LAW 60
         SHTNL(60,0,1) = .0000001525  !.0000001044  !.0000003498  
         SHTNL(60,1,1) = .0000001744  !.0000001173  !.0000003992  
         SHTNL(60,2,1) = .0000003723  !.0000002531  !.0000008897  
         SHTNL(60,3,1) = .0000005732  !.0000003902  !.0000013350  
!
         TRITNL(60,0,1)= .0000001598 !.0000001209  !.0000003850  
         TRITNL(60,1,1)= .0000001660 !.0000001273  !.0000003997  
         TRITNL(60,2,1)= .0000003935 !.0000002837  !.0000009103  
         TRITNL(60,3,1)= .0000006257 !.0000004377  !.0000014110  
!     LAW 62
         ! M = 0             
         SHTNL(62,0,1) = .0000002349  !.0000001553  !.0000008089  
         SHTNL(62,1,1) = .0000002349  !.0000001553  !.0000008089  
         SHTNL(62,2,1) = .0000005647  !.0000003720  !.0000021360  
         SHTNL(62,3,1) = .0000009094  !.0000005925  !.0000034950  
         ! M = 1            
         SHTNL(62,0,2) = .0000005137  !.0000003347  !.0000014640  
         SHTNL(62,1,2) = .0000005137  !.0000003347  !.0000014640  
         SHTNL(62,2,2) = .0000014080  !.0000009365  !.0000041200  
         SHTNL(62,3,2) = .0000023170  !.0000015170  !.0000067100  
         ! M = 2             
         SHTNL(62,0,3) = .0000007152  !.0000004757  !.0000017390  
         SHTNL(62,1,3) = .0000007152  !.0000004757  !.0000017390  
         SHTNL(62,2,3) = .0000020190  !.0000013210  !.0000048970  
         SHTNL(62,3,3) = .0000033370  !.0000022390  !.0000079110  
C
         ! M = 0
         TRITNL(62,0,1)= .0000002153 !.0000001570  !.0000008167  
         TRITNL(62,1,1)= .0000002153 !.0000001570  !.0000008167  
         TRITNL(62,2,1)= .0000005425 !.0000003764  !.0000021660  
         TRITNL(62,3,1)= .0000008716 !.0000005973  !.0000034760  
         ! M = 1
         TRITNL(62,0,2)= .0000004882 !.0000003355  !.0000014950  
         TRITNL(62,1,2)= .0000004882 !.0000003355  !.0000014950  
         TRITNL(62,2,2)= .0000013850 !.0000009285  !.0000040800  
         TRITNL(62,3,2)= .0000022810 !.0000015420  !.0000067340   
         ! M = 2
         TRITNL(62,0,3)= .0000006940 !.0000004649  !.0000017140   
         TRITNL(62,1,3)= .0000006940 !.0000004649  !.0000017140   
         TRITNL(62,2,3)= .0000020020 !.0000013230  !.0000048680   
         TRITNL(62,3,3)= .0000033140 !.0000022210  !.0000079480   
!     LAW 63
         SHTNL(63,0,1) = .0000001307  !.0000000872  !.0000002904   
         SHTNL(63,1,1) = .0000001307  !.0000000872  !.0000002904   
         SHTNL(63,2,1) = .0000002469  !.0000001682  !.0000006582   
         SHTNL(63,3,1) = .0000003666  !.0000002467  !.0000009983   
C
         TRITNL(63,0,1)= .0000001053 !.0000000826  !.0000002766  
         TRITNL(63,1,1)= .0000001053 !.0000000826  !.0000002766  
         TRITNL(63,2,1)= .0000002133 !.0000001578  !.0000005871
         TRITNL(63,3,1)= .0000003204 !.0000002313  !.0000008944
!     LAW 64
         SHTNL(64,0,1) = .0000001496  !.0000001006  !.0000003364 
         SHTNL(64,1,1) = .0000001496  !.0000001006  !.0000003364 
         SHTNL(64,2,1) = .0000003055  !.0000002075  !.0000007866 
         SHTNL(64,3,1) = .0000004623  !.0000003197  !.0000011920 
C
         TRITNL(64,0,1)= .0000001231 !.0000000966  !.0000003426  
         TRITNL(64,1,1)= .0000001231 !.0000000966  !.0000003426  
         TRITNL(64,2,1)= .0000002664 !.0000001997  !.0000007550  
         TRITNL(64,3,1)= .0000004126 !.0000003000  !.0000011970  
!     LAW 65
         SHTNL(65,0,1) = .0000001840  !.0000001242  !.0000003350  
         SHTNL(65,1,1) = .0000001840  !.0000001242  !.0000003350  
         SHTNL(65,2,1) = .0000003948  !.0000002677  !.0000007280  
         SHTNL(65,3,1) = .0000006070  !.0000004125  !.0000011240  
C
         TRITNL(65,0,1)= .0000001563 !.0000001220  !.0000003324  
         TRITNL(65,1,1)= .0000001563 !.0000001220  !.0000003324  
         TRITNL(65,2,1)= .0000003650 !.0000002652  !.0000007364  
         TRITNL(65,3,1)= .0000005787 !.0000004097  !.0000011200  
!     LAW 66
         SHTNL(66,0,1) = .0000001628  !.0000001094  !.0000003310  
         SHTNL(66,1,1) = .0000001628  !.0000001094  !.0000003310  
         SHTNL(66,2,1) = .0000003334  !.0000002274  !.0000007200  
         SHTNL(66,3,1) = .0000005119  !.0000003468  !.0000011010  
C
         TRITNL(66,0,1)= .0000001333 !.0000001057  !.0000003725  
         TRITNL(66,1,1)= .0000001333 !.0000001057  !.0000003666  
         TRITNL(66,2,1)= .0000002982 !.0000002192  !.0000007924  
         TRITNL(66,3,1)= .0000004634 !.0000003287  !.0000011650  
!     LAW 69 
         ! M = 0 (no visc)
         SHTNL(69,0,1) = .0000003985  !.0000002644  !.0000013330  
         SHTNL(69,1,1) = .0000003985  !.0000002644  !.0000013330  
         SHTNL(69,2,1) = .0000010580  !.0000007107  !.0000032970  
         SHTNL(69,3,1) = .0000017370  !.0000011590  !.0000054280  
         ! M = 1 (visc)
         SHTNL(69,0,2) = .0000005288  !.0000003489  !.0000014210   
         SHTNL(69,1,2) = .0000005288  !.0000003489  !.0000014210   
         SHTNL(69,2,2) = .0000014430  !.0000009592  !.0000039620   
         SHTNL(69,3,2) = .0000023900  !.0000015630  !.0000064560   
         ! M = 2 (visc)
         SHTNL(69,0,3) = .0000006553  !.0000004397  !.0000016580   
         SHTNL(69,1,3) = .0000006553  !.0000004397  !.0000016580   
         SHTNL(69,2,3) = .0000018340  !.0000012050  !.0000045270   
         SHTNL(69,3,3) = .0000030470  !.0000019880  !.0000074700   
C
         ! M = 0 (no visc)
         TRITNL(69,0,1)= .0000003792 !.0000002656  !.0000010400   
         TRITNL(69,1,1)= .0000003792 !.0000002656  !.0000010400   
         TRITNL(69,2,1)= .0000010490 !.0000007163  !.0000027280   
         TRITNL(69,3,1)= .0000017070 !.0000011470  !.0000044630   
         ! M = 1
         TRITNL(69,0,2)= .0000005049 !.0000003447  !.0000012490   
         TRITNL(69,1,2)= .0000005049 !.0000003447  !.0000012490   
         TRITNL(69,2,2)= .0000014300 !.0000009625  !.0000035000   
         TRITNL(69,3,2)= .0000023740 !.0000015500  !.0000055580   
         ! M = 2
         TRITNL(69,0,3)= .0000006319 !.0000004448  !.0000014430   
         TRITNL(69,1,3)= .0000006319 !.0000004448  !.0000014430   
         TRITNL(69,2,3)= .0000018180 !.0000012030  !.0000040510   
         TRITNL(69,3,3)= .0000030050 !.0000020200  !.0000065830   
!     LAW 71 (incompatible npt=0)
         SHTNL(71,0,1) = .0000002779  !.0000001823  !.0000005878   
         SHTNL(71,1,1) = .0000002779  !.0000001823  !.0000005878   
         SHTNL(71,2,1) = .0000006921  !.0000004629  !.0000014690   
         SHTNL(71,3,1) = .0000011280  !.0000007471  !.0000024250   
C
         TRITNL(71,0,1)= .0000002571 !.0000001860  !.0000006319  
         TRITNL(71,1,1)= .0000002571 !.0000001860  !.0000006919  
         TRITNL(71,2,1)= .0000006719 !.0000004627  !.0000015420  
         TRITNL(71,3,1)= .0000010950 !.0000007391  !.0000024620  
!     LAW 72
         SHTNL(72,0,1) = .0000002082  !.0000001390  !.0000003671  
         SHTNL(72,1,1) = .0000002082  !.0000001390  !.0000003671  
         SHTNL(72,2,1) = .0000004876  !.0000003235  !.0000007838  
         SHTNL(72,3,1) = .0000007582  !.0000005036  !.0000012730  
C
         TRITNL(72,0,1)= .0000001787 !.0000001334  !.00000s03591  
         TRITNL(72,1,1)= .0000001787 !.0000001334  !.0000003591  
         TRITNL(72,2,1)= .0000004340 !.0000003038  !.0000007633  
         TRITNL(72,3,1)= .0000006868 !.0000004765  !.0000011460  
!     LAW 73
         SHTNL(73,0,1) = .0000001921  !.0000001248  !.0000003456  
         SHTNL(73,1,1) = .0000001921  !.0000001248  !.0000003689  
         SHTNL(73,2,1) = .0000004181  !.0000002821  !.0000007752  
         SHTNL(73,3,1) = .0000006513  !.0000004450  !.0000012010  
C
         TRITNL(73,0,1)= .0000001655 !.0000001245  !.0000003618  
         TRITNL(73,1,1)= .0000001655 !.0000001245  !.0000003371  
         TRITNL(73,2,1)= .0000003938 !.0000002802  !.0000007637  
         TRITNL(73,3,1)= .0000006235 !.0000004278  !.0000012300  
!     LAW 76
         SHTNL(76,0,1) = .0000003014  !.0000002022  !.0000007383  
         SHTNL(76,1,1) = .0000003014  !.0000002022  !.0000007476  
         SHTNL(76,2,1) = .0000007581  !.0000005089  !.0000018800  
         SHTNL(76,3,1) = .0000012190  !.0000008119  !.0000029980  
C
         TRITNL(76,0,1)= .0000002751 !.0000001994  !.0000007008  
         TRITNL(76,1,1)= .0000002751 !.0000001994  !.0000007008  
         TRITNL(76,2,1)= .0000007339 !.0000005036  !.0000018360  
         TRITNL(76,3,1)= .0000011940 !.0000008260  !.0000029000  
!     LAW 78
         SHTNL(78,0,1) = .0000001539  !.0000001045  !.0000002921  
         SHTNL(78,1,1) = .0000001539  !.0000001045  !.0000002921  
         SHTNL(78,2,1) = .0000003119  !.0000002158  !.0000005980  
         SHTNL(78,3,1) = .0000004750  !.0000003308  !.0000009682  
C
         TRITNL(78,0,1)= .0000001307 !.0000001017  !.0000002936  
         TRITNL(78,1,1)= .0000001307 !.0000001017  !.0000002939  
         TRITNL(78,2,1)= .0000002885 !.0000002104  !.0000005670  
         TRITNL(78,3,1)= .0000004450 !.0000003165  !.0000008430  
!     LAW 80
         SHTNL(80,0,1) = .0000010640  !.0000007081  !.0000015110  
         SHTNL(80,1,1) = .0000010640  !.0000007081  !.0000014400  
         SHTNL(80,2,1) = .0000030400  !.0000020610  !.0000040060  
         SHTNL(80,3,1) = .0000045130  !.0000029980  !.0000065840  
C
         TRITNL(80,0,1)= .0000001015 !.0000006949  !.0000013660  
         TRITNL(80,1,1)= .0000001015 !.0000006949  !.0000013660  
         TRITNL(80,2,1)= .0000002963 !.0000019830  !.0000039870  
         TRITNL(80,3,1)= .0000004913 !.0000032500  !.0000063540  
!     LAW 82 (incompatible NPT=0) 
!        N = 1
         SHTNL(82,0,1) = .0000002316  !.0000001536  !.0000006991  
         SHTNL(82,1,1) = .0000002316  !.0000001536  !.0000007022  
         SHTNL(82,2,1) = .0000005547  !.0000003693  !.0000017930  
         SHTNL(82,3,1) = .0000008899  !.0000005914  !.0000028300  
!
         TRITNL(82,0,1)= .0000002102 !.0000001558  !.0000006886  
         TRITNL(82,1,1)= .0000002108 !.0000001558  !.0000007115  
         TRITNL(82,2,1)= .0000005342 !.0000003788  !.0000017680  
         TRITNL(82,3,1)= .0000008588 !.0000005881  !.0000028740  
!        N = 2
         SHTNL(82,0,2) = .0000003484  !.0000002314  !.0000010470  
         SHTNL(82,1,2) = .0000003484  !.0000002314  !.0000010430  
         SHTNL(82,2,2) = .0000009013  !.0000006029  !.0000027830  
         SHTNL(82,3,2) = .0000014760  !.0000009733  !.0000045710  
!
         TRITNL(82,0,2)= .0000003256 !.0000002278  !.0000010690  
         TRITNL(82,1,2)= .0000003256 !.0000002278  !.0000010330  
         TRITNL(82,2,2)= .0000008872 !.0000006062  !.0000028430  
         TRITNL(82,3,2)= .0000014420 !.0000009569  !.0000046350  
!        N = 3
         SHTNL(82,0,3) = .0000004674  !.0000003158  !.0000013880 
         SHTNL(82,1,3) = .0000004674  !.0000003158  !.0000014040 
         SHTNL(82,2,3) = .0000012710  !.0000008427  !.0000038590 
         SHTNL(82,3,3) = .0000020930  !.0000013890  !.0000063230 
!
         TRITNL(82,0,3)= .0000004538 !.0000003084  !.0000014340 
         TRITNL(82,1,3)= .0000004538 !.0000003084  !.0000014220 
         TRITNL(82,2,3)= .0000012530 !.0000008498  !.0000038320 
         TRITNL(82,3,3)= .0000020610 !.0000013620  !.0000063450 
!     LAW 87
         SHTNL(87,0,1) = .0000002036  !.0000001386  !.0000003592 
         SHTNL(87,1,1) = .0000002036  !.0000001386  !.0000003592 
         SHTNL(87,2,1) = .0000004685  !.0000003151  !.0000007907 
         SHTNL(87,3,1) = .0000007389  !.0000004885  !.0000011520 
!
         TRITNL(87,0,1)= .0000001826 !.0000001347  !.0000003754 
         TRITNL(87,1,1)= .0000001826 !.0000001347  !.0000003874 
         TRITNL(87,2,1)= .0000004412 !.0000003124  !.0000008403 
         TRITNL(87,3,1)= .0000007025 !.0000004843  !.0000012850 
!     LAW 93
         SHTNL(93,0,1) = .0000001371  !.0000000928  !.0000002801 
         SHTNL(93,1,1) = .0000001371  !.0000000928  !.0000002801 
         SHTNL(93,2,1) = .0000002701  !.0000001849  !.0000005238 
         SHTNL(93,3,1) = .0000004036  !.0000002761  !.0000007912 
!
         TRITNL(93,0,1)= .0000001175 !.0000000922  !.0000002629 
         TRITNL(93,1,1)= .0000001175 !.0000000922  !.0000002629 
         TRITNL(93,2,1)= .0000002418 !.0000001835  !.0000005262   
         TRITNL(93,3,1)= .0000003755 !.0000002740  !.0000008110   

!     LAW 104
         ! Nice algo
         SHTNL(104,0,1) = .0000001034
         SHTNL(104,1,1) = .0000001034
         SHTNL(104,2,1) = .0000002044
         SHTNL(104,3,1) = .0000003111
         ! Newton algo
         SHTNL(104,0,2) = .0000001400
         SHTNL(104,1,2) = .0000001400
         SHTNL(104,2,2) = .0000002944
         SHTNL(104,3,2) = .0000004683
         ! Nice algo
         TRITNL(104,0,1) = .0000001034
         TRITNL(104,1,1) = .0000001034
         TRITNL(104,2,1) = .0000002044
         TRITNL(104,3,1) = .0000003111
         ! Newton algo
         TRITNL(104,0,2) = .0000001400
         TRITNL(104,1,2) = .0000001400
         TRITNL(104,2,2) = .0000002944
         TRITNL(104,3,2) = .0000004683
         ! iloc=1
         SHTNL_OPTION(1,1) = .0000000400
         ! iloc=2
         SHTNL_OPTION(1,2) = .0000000500
         ! iloc=3
         SHTNL_OPTION(1,3) = .0000000900

C Temps de traitement de la partie elementaire sans la loi materielle fonction de IPARITH
        IF (IPARI0.EQ.1) THEN
!       SHELT :
!       1-->5 --> /SHELL 
!       6-->10 --> /SH_COMP or TYPE10
!       11-->15 --> /SH_SANDW or TYPE11
!       15-->20 --> /SH_ORTH or TYPE9
!       20-->25 --> /SH_FABR or TYPE16
!       IDRILL = 0
!       1/6/11/16/21 --> Q4 
!       2/7/12/17/22 --> QEPH 
!       3/8/13/18/23 --> BATOZ 
!       IDRILL = 1
!       none         --> Q4 
!       4/9 /14/19/24 --> QEPH 
!       5/10/15/20/25 --> BATOZ 
!       TRIELT :
!       1 --> tri    
!       NLOCAL_OPTION
!       1 --> sol
!       2 --> shell
!         /SHELL
          SHTELT(1) =  .0000002670
          SHTELT(2) =  .0000003380
          SHTELT(3) =  .0000008070
          SHTELT(4) =  .0000004730  
          SHTELT(5) =  .0000010390
!         /SH_COMP
          SHTELT(6) =  .0000002870
          SHTELT(7) =  .0000003550
          SHTELT(8) =  .0000008350
          SHTELT(9) =  .0000004560
          SHTELT(10) = .0000010620
!         /SH_SANDW
          SHTELT(11) = .0000003040
          SHTELT(12) = .0000004510
          SHTELT(13) = .0000009120
          SHTELT(14) = .0000005710
          SHTELT(15) = .0000003040
!         /SH_ORTH
          SHTELT(16) = .0000002820
          SHTELT(17) = .0000003820
          SHTELT(18) = .0000008800
          SHTELT(19) = .0000004960
          SHTELT(20) = .0000003040 
!         /SH_FABR
          SHTELT(21) = .0000003800
          SHTELT(22) = .0000004410
          SHTELT(23) = .0000009780
          SHTELT(24) = .0000004600
          SHTELT(25) = .0000016180

!         /TYPE51
          SHTELT(26) = .0000008400
          SHTELT(27) = .0000009840
          SHTELT(28) = .0000021800
          SHTELT(29) = .0000010040
          SHTELT(30) = .0000029300
  
          TRITELT(1)= .0000002410 
          NLOCAL_OPTION(2) = .0000000600
        ELSE
!         /SHELL
          SHTELT(1) = .0000001695  !.0000004647   
          SHTELT(2) = .0000002289  !.0000005736   
          SHTELT(3) = .0000006200  !.0000012330   
          SHTELT(4) = .0000003115
          SHTELT(5) = .0000008131
!         /SH_COMP
          SHTELT(6) = .0000001868  !.0000005935
          SHTELT(7) = .0000002431  !.0000007462
          SHTELT(8) = .0000006430  !.0000013800
          SHTELT(9) = .0000003276
          SHTELT(10)= .0000008321
!         /SH_SANDW
          SHTELT(11) = .0000002008  !.0000005224
          SHTELT(12) = .0000003229  !.0000007354
          SHTELT(13) = .0000007075  !.0000012600
          SHTELT(14) = .0000004230
          SHTELT(15) = .0000008941
!         /SH_ORTH
          SHTELT(16) = .0000001827  !.0000003400
          SHTELT(17) = .0000002658  !.0000006300
          SHTELT(18) = .0000006808  !.0000013040
          SHTELT(19) = .0000003611
          SHTELT(20) = .0000008800
!         /SH_FABR
          SHTELT(21) = .0000002641  !.0000005500
          SHTELT(22) = .0000003150  !.0000006440
          SHTELT(23) = .0000007625  !.0000012700
          SHTELT(24) = .0000003333
          SHTELT(25) = .0000012900

!         /TYPE51
          SHTELT(26) = .0000005800
          SHTELT(27) = .0000006900
          SHTELT(28) = .0000015570
          SHTELT(29) = .0000007000
          SHTELT(30) = .0000020710

          TRITELT(1)=  .0000001391  !.0000003721
          NLOCAL_OPTION(2) = .0000000600   

        ENDIF

! il y a un facteur multiplicatif sur les coques de Batoz, car on rentre 4x dans cmain3.

       BATOZMULT = 3.8

! *******************************************************************
!                         Failure model
! *******************************************************************
! Johnson       : 1
! Tbutcher      : 2
! Wilkins       : 3
! user1         : 4
! user2         : 5
! user3         : 6
! FLD           : 7     (for shell only)
! Spalling      : 8     (for solid only)
! Wierzbicki    : 9
! Tensstrain    : 10 
! Energy        : 11
! ???           : 12
! Chang         : 13    (for shell only)    
! Hashin        : 14
! Yamada        : 15
! Puck          : 16
! XFEM_Tbutcher : 17
! Lad_dama      : 18    (for solid only)    
! Power_da      : 19
! Connect       : 20    (for solid only)    
! XFEM_Johns    : 21
! XFEM_FLD      : 22
! TAB1          : 23
! Orthstra      : 24    (for shell only)    
! NXT           : 25    (for shell only)    
! Snconnect     : 26    (for solid only)    
! EMC           : 27    (for solid only)    
! Wind          : 28    (for shell only)    
! Sahraei1      : 29    (for solid only)    
! Biquadratic   : 30
!                             _
! SHELL : 1--> 0 ou 1pt        |
!         2--> 3 pts           |--- MLN < 28 or ==32
!         3--> 5 pts          _|
!         4--> 0 ou 1pt        |
!         5--> 3 pts           |--- MLN >= 28 or /=32
!         6--> 5 pts          _|
!
! SOLIDE       : 1 ----> MLN <28 or ==49
!                2 ----> MLN >=28 or /=49
! --------------------------------------------------------
         DO I=1,MAXFAIL
          DO J=1,3
           RUPTURE_SOL(I,J)   = 0.
           RUPTURE_SOL12(I,J) = 0.
           RUPTURE_TET4(I,J)  = 0.
           RUPTURE_TET10(I,J) = 0.
          ENDDO
          DO J=1,6
           RUPTURE_SHELL(I,J) = 0.
          ENDDO
         ENDDO
! --------------------
! Johnson
         ! MLN <28 or ==32                      
         RUPTURE_SHELL(1,1)  = .00000002342  !.00000007517     
         RUPTURE_SHELL(1,2)  = .00000005640  !.00000019090     
         RUPTURE_SHELL(1,3)  = .00000008993  !.00000031460     

         ! MLN >=28 or /=32
         RUPTURE_SHELL(1,4)  = .00000001638  !.00000003021     
         RUPTURE_SHELL(1,5)  = .00000003725  !.00000007567     
         RUPTURE_SHELL(1,6)  = .00000005660  !.00000011620     

         ! MLN <28 or ==49
         RUPTURE_SOL(1,1)    = .00000004261  !.00000008839     
         RUPTURE_SOL12(1,1)  = .00000012740  !.00000017710     
         RUPTURE_TET4(1,1)   = .00000004250  !.00000008021     
         RUPTURE_TET10(1,1)  = .00000015910  !.00000033420     
   ! MLN >=28 or /=49
         RUPTURE_SOL(1,2)    = .00000002573  !.00000002696     
         RUPTURE_SOL12(1,2)  = .00000015790  !.00000015790     
         RUPTURE_TET4(1,2)   = .00000002443  !.00000002663     
         RUPTURE_TET10(1,2)  = .00000009469  !.00000010360     
! --------------------
! Tbutcher
         ! MLN <28 or ==49
         RUPTURE_SHELL(2,1)  = .00000001895  !.00000004873     
         RUPTURE_SHELL(2,2)  = .00000004270  !.00000010840     
         RUPTURE_SHELL(2,3)  = .00000006646  !.00000016340     

         RUPTURE_SHELL(2,4)  = .00000001827  !.00000003994     
         RUPTURE_SHELL(2,5)  = .00000004190  !.00000010130     
         RUPTURE_SHELL(2,6)  = .00000006501  !.00000015690     

         ! MLN <28 or ==49
         RUPTURE_SOL(2,1)    = .00000004250  !.00000004718     
         RUPTURE_SOL12(2,1)  = .00000013750  !.00000031390     
         RUPTURE_TET4(2,1)   = .00000004034  !.00000010090     
         RUPTURE_TET10(2,1)  = .00000016070  !.00000040130     

         ! MLN >=28 or /=49
         RUPTURE_SOL(2,2)    = .00000002613  !.00000004949     
         RUPTURE_SOL12(2,2)  = .00000017280  !.00000030290     
         RUPTURE_TET4(2,2)   = .00000002267  !.00000004449     
         RUPTURE_TET10(2,2)  = .00000009430  !.00000016800     
! --------------------
! Wilkins
         ! MLN <28 or ==49
         RUPTURE_SHELL(3,1)  = .00000006864  !.00000011660     
         RUPTURE_SHELL(3,2)  = .00000019790  !.00000032760     
         RUPTURE_SHELL(3,3)  = .00000033320  !.00000052680     

         RUPTURE_SHELL(3,4)  = .00000003115  !.00000011410     
         RUPTURE_SHELL(3,5)  = .00000008054  !.00000032760     
         RUPTURE_SHELL(3,6)  = .00000013990  !.00000052910     

         ! MLN <28 or ==49
         RUPTURE_SOL(3,1)    = .00000013710  !.00000023210     
         RUPTURE_SOL12(3,1)  = .00000091220  !.00000131700     
         RUPTURE_TET4(3,1)   = .00000008845  !.00000016440     
         RUPTURE_TET10(3,1)  = .00000043350  !.00000075060     

         ! MLN >=28 or /=49
         RUPTURE_SOL(3,2)    = .00000011900  !.00000016870     
         RUPTURE_SOL12(3,2)  = .00000100800  !.00000129800     
         RUPTURE_TET4(3,2)   = .00000007117  !.00000011060     
         RUPTURE_TET10(3,2)  = .00000034650  !.00000051000     
! --------------------
! FLD (only for shell)
         ! MLN <28 or ==32
         RUPTURE_SHELL(7,1)  = .00000003036  !.00000010900     
         RUPTURE_SHELL(7,2)  = .00000007421  !.00000021590     
         RUPTURE_SHELL(7,3)  = .00000011910  !.00000031890     

         ! MLN >=28 or /=32
         RUPTURE_SHELL(7,4)  = .00000003115  !.00000007162     
         RUPTURE_SHELL(7,5)  = .00000008054  !.00000019550     
         RUPTURE_SHELL(7,6)  = .00000013990  !.00000031220     
! --------------------
! Spalling (only for solid)

         ! MLN <28 or ==49
         RUPTURE_SOL(8,1)    = .00000003544  !.00000009428     
         RUPTURE_SOL12(8,1)  = .00000008080  !.00000025070     
         RUPTURE_TET4(8,1)   = .00000003630  !.00000009402     
         RUPTURE_TET10(8,1)  = .00000013920  !.00000038110     

         ! MLN >=28 or /=49
         RUPTURE_SOL(8,2)    = .00000002000  !.00000003871     
         RUPTURE_SOL12(8,2)  = .00000012370  !.00000023730     
         RUPTURE_TET4(8,2)   = .00000001807  !.00000003716     
         RUPTURE_TET10(8,2)  = .00000007336  !.00000014820     
! --------------------
! Wierzbicki
         ! MLN <28 or ==49
         RUPTURE_SHELL(9,1)  = .00000016750  !.00000025370     
         RUPTURE_SHELL(9,2)  = .00000049190  !.00000071910     
         RUPTURE_SHELL(9,3)  = .00000082040  !.00000118100     

         RUPTURE_SHELL(9,4)  = .00000016670  !.00000024610     
         RUPTURE_SHELL(9,5)  = .00000049650  !.00000071940     
         RUPTURE_SHELL(9,6)  = .00000080950  !.00000118500     

         ! MLN <28 or ==49
         RUPTURE_SOL(9,1)    = .00000003236  !.00000008443     
         RUPTURE_SOL12(9,1)  = .00000005825  !.00000011190     
         RUPTURE_TET4(9,1)   = .00000003239  !.00000008236     
         RUPTURE_TET10(9,1)  = .00000012800  !.00000032530     

         ! MLN >=28 or /=49
         RUPTURE_SOL(9,2)    = .00000001600  !.00000002591     
         RUPTURE_SOL12(9,2)  = .00000009595  !.00000016310     
         RUPTURE_TET4(9,2)   = .00000001494  !.00000002483     
         RUPTURE_TET10(9,2)  = .00000005972  !.00000008821     
! --------------------
! Tensstrain
         ! MLN <28 or ==32 
         RUPTURE_SHELL(10,1) = .00000002166  !.00000009068     
         RUPTURE_SHELL(10,2) = .00000005092  !.00000016430     
         RUPTURE_SHELL(10,3) = .00000008145  !.00000023120     

         ! MLN >=28 or /=32
         RUPTURE_SHELL(10,4) = .00000002328  !.00000004473     
         RUPTURE_SHELL(10,5) = .00000005666  !.00000012650     
         RUPTURE_SHELL(10,6) = .00000009416  !.00000019170     

         ! MLN <28 or ==49
         RUPTURE_SOL(10,1)   = .00000006278  !.00000013990     
         RUPTURE_SOL12(10,1) = .00000012500  !.00000025600     
         RUPTURE_TET4(10,1)  = .00000005218  !.00000010960     
         RUPTURE_TET10(10,1) = .00000022200  !.00000047680     

         ! MLN >=28 or /=49
         RUPTURE_SOL(10,2)   = .00000004650  !.00000008052     
         RUPTURE_SOL12(10,2) = .00000035060  !.00000056320     
         RUPTURE_TET4(10,2)  = .00000002950  !.00000005430     
         RUPTURE_TET10(10,2) = .00000015020  !.00000025250     
! --------------------
! Energy
         ! MLN <28 or ==49
         RUPTURE_SHELL(11,1) = .00000001914  !.00000005295     
         RUPTURE_SHELL(11,2) = .00000004461  !.00000011720     
         RUPTURE_SHELL(11,3) = .00000006982  !.00000017760     

         RUPTURE_SHELL(11,4) = .00000002371  !.00000003770     
         RUPTURE_SHELL(11,5) = .00000005454  !.00000010100     
         RUPTURE_SHELL(11,6) = .00000008598  !.00000015840     

         ! MLN <28 or ==49
         RUPTURE_SOL(11,1)   = .00000003780  !.00000009413     
         RUPTURE_SOL12(11,1) = .00000003700  !.00000009015     
         RUPTURE_TET4(11,1)  = .00000004242  !.00000009164     
         RUPTURE_TET10(11,1) = .00000015180  !.00000037960     

         ! MLN >=28 or /=49
         RUPTURE_SOL(11,2)   = .00000002200  !.00000003883     
         RUPTURE_SOL12(11,2) = .00000014500  !.00000025910     
         RUPTURE_TET4(11,2)  = .00000002011  !.00000003753     
         RUPTURE_TET10(11,2) = .00000008094  !.00000014030     
! --------------------
! Chang (only for shell)
         ! MLN <28 or ==49
         RUPTURE_SHELL(13,1) = .00000001598  !.00000004822     
         RUPTURE_SHELL(13,2) = .00000003435  !.00000010740     
         RUPTURE_SHELL(13,3) = .00000005443  !.00000016000     
         ! MLN >=28 or /=49
         RUPTURE_SHELL(13,4) = .00000001948  !.00000003770     
         RUPTURE_SHELL(13,5) = .00000004518  !.00000010100     
         RUPTURE_SHELL(13,6) = .00000006896  !.00000015840     
! --------------------
! Hashin
         ! MLN <28 or ==49
         RUPTURE_SHELL(14,1) = .00000002500  !.00000007989     
         RUPTURE_SHELL(14,2) = .00000007500  !.00000025240     
         RUPTURE_SHELL(14,3) = .00000013000  !.00000040300     

         RUPTURE_SHELL(14,4) = .00000002500  !.00000007989     
         RUPTURE_SHELL(14,5) = .00000007500  !.00000025240     
         RUPTURE_SHELL(14,6) = .00000013000  !.00000040300     

         ! MLN <28 or ==49
         RUPTURE_SOL(14,1)   = .00000007500  !.00000013480     
         RUPTURE_SOL12(14,1) = .00000005400  !.00000107400     
         RUPTURE_TET4(14,1)  = .00000006250  !.00000012500     
         RUPTURE_TET10(14,1) = .00000023010  !.00000054770     

         ! MLN >=28 or /=49
         RUPTURE_SOL(14,2)   = .00000002000  !.00000001289     
         RUPTURE_SOL12(14,2) = .00000010000  !.00000010990     
         RUPTURE_TET4(14,2)  = .00000001500  !.00000001302     
         RUPTURE_TET10(14,2) = .00000006000  !.00000005823     
! --------------------
! Puck (compatible MLN<28)
         ! MLN <28 or ==49
         RUPTURE_SHELL(16,1) = .00000002028  !.00000007462     
         RUPTURE_SHELL(16,2) = .00000004716  !.00000018470     
         RUPTURE_SHELL(16,3) = .00000007455  !.00000028840     

         RUPTURE_SHELL(16,4) = .00000002229  !.00000006606     
         RUPTURE_SHELL(16,5) = .00000005406  !.00000017190     
         RUPTURE_SHELL(16,6) = .00000008620  !.00000027600     

         ! MLN <28 or ==49
         RUPTURE_SOL(16,1)   = .00000004857  !.00000013060     
         RUPTURE_SOL12(16,1) = .00000003453  !.00000008806     
         RUPTURE_TET4(16,1)  = .00000004501  !.00000012170     
         RUPTURE_TET10(16,1) = .00000018820  !.00000042400     

         RUPTURE_SOL(16,2)   = .00000002500  !.00000005419     
         RUPTURE_SOL12(16,2) = .00000011000  !.00000007646     
         RUPTURE_TET4(16,2)  = .00000001240  !.00000001338     
         RUPTURE_TET10(16,2) = .00000004832  !.00000004460     
! --------------------
! Lad_Dama (compatible MLN<28) (only for solid)
         ! MLN <28 or ==49
         RUPTURE_SOL(18,1)   = .00000005564  !.00000016890     
         RUPTURE_SOL12(18,1) = .00000003508  !.00000008820     
         RUPTURE_TET4(18,1)  = .00000005428  !.00000013980     
         RUPTURE_TET10(18,1) = .00000021920  !.00000058630     

         RUPTURE_SOL(18,2)   = .00000070000  !.00000016890     
         RUPTURE_SOL12(18,2) = .00000250000  !.00000008820     
         RUPTURE_TET4(18,2)  = .00000070000  !.00000013980     
         RUPTURE_TET10(18,2) = .00000280000  !.00000058630     
! --------------------
! Connect (compatible MLN==59 et 83)
         ! MLN==59
         RUPTURE_SOL(20,1)   = .00000025000  !.00000054140     
         RUPTURE_SOL12(20,1) = .00000025000  !.00000054140     
         RUPTURE_TET4(20,1)  = .00000025000  !.00000054140     
         RUPTURE_TET10(20,1) = .00000025000  !.00000054140     
        ! MLN==83
         RUPTURE_SOL(20,2)   = .00000025000  !.00000054140     
         RUPTURE_SOL12(20,2) = .00000025000  !.00000054140     
         RUPTURE_TET4(20,2)  = .00000025000  !.00000054140     
         RUPTURE_TET10(20,2) = .00000025000  !.00000054140     
! -------------------- 
! Tab1 
         ! MLN <28 or ==49
         RUPTURE_SHELL(23,1) = .00000010690  !.00000021020     
         RUPTURE_SHELL(23,2) = .00000031560  !.00000060850     
         RUPTURE_SHELL(23,3) = .00000052190  !.00000098850     

         RUPTURE_SHELL(23,4) = .00000011350  !.00000021590     
         RUPTURE_SHELL(23,5) = .00000031430  !.00000062580     
         RUPTURE_SHELL(23,6) = .00000046800  !.0000009949     

         ! MLN <28 or ==49
         RUPTURE_SOL(23,1)   = .00000017800  !.00000031120     
         RUPTURE_SOL12(23,1) = .00000123900  !.00000192900     
         RUPTURE_TET4(23,1)  = .00000016280  !.00000026620     
         RUPTURE_TET10(23,1) = .00000068920  !.00000118100     

        ! MLN >=28 or /=49
         RUPTURE_SOL(23,2)   = .00000016170  !.00000025940     
         RUPTURE_SOL12(23,2) = .00000142600  !.00000198600     
         RUPTURE_TET4(23,2)  = .00000014240  !.00000022330     
         RUPTURE_TET10(23,2) = .00000061180  !.00000096400     
! --------------------
! NXT (only for shell)
         ! MLN <28 or ==32 
         RUPTURE_SHELL(25,1) = .00000003909  !.00000014880     
         RUPTURE_SHELL(25,2) = .00000010420  !.00000032860     
         RUPTURE_SHELL(25,3) = .00000017070  !.00000051100     

         ! MLN >=28 or /=32 
         RUPTURE_SHELL(25,4) = .00000003648  !.00000008550     
         RUPTURE_SHELL(25,5) = .00000009550  !.00000024030     
         RUPTURE_SHELL(25,6) = .00000015980  !.00000038060     
! --------------------
! Snconnect (compatible MLN==59 et 83)
         ! MLN==59
         RUPTURE_SOL(26,1)   = .00000030000  !.00000065150     
         RUPTURE_SOL12(26,1) = .00000030000  !.00000065150     
         RUPTURE_TET4(26,1)  = .00000030000  !.00000065150     
         RUPTURE_TET10(26,1) = .00000030000  !.00000065150     
         ! MLN==83
         RUPTURE_SOL(26,2)   = .00000030000  !.00000065150     
         RUPTURE_SOL12(26,2) = .00000030000  !.00000065150     
         RUPTURE_TET4(26,2)  = .00000030000  !.00000065150     
         RUPTURE_TET10(26,2) = .00000030000  !.00000065150     
! --------------------
! EMC (only for solid)
         ! MLN <28 or ==49
         RUPTURE_SOL(27,1)   = .00000003106  !.00000007774     
         RUPTURE_SOL12(27,1) = .00000004772  !.00000013030     
         RUPTURE_TET4(27,1)  = .00000003162  !.00000007539     
         RUPTURE_TET10(27,1) = .00000012270  !.00000029830     

        ! MLN >=28 or /=49
         RUPTURE_SOL(27,2)   = .00000005000  !.00000001913     
         RUPTURE_SOL12(27,2) = .00000020000  !.00000010660     
         RUPTURE_TET4(27,2)  = .00000002000  !.00000001654     
         RUPTURE_TET10(27,2) = .00000008000  !.00000006008     
! --------------------
! Alter (only shell/tri)
         ! MLN <28 or ==49
         RUPTURE_SHELL(28,1) = .0000000647  
         RUPTURE_SHELL(28,2) = .0000001670
         RUPTURE_SHELL(28,3) = .0000002749    

         RUPTURE_SHELL(28,4) = .0000000647  
         RUPTURE_SHELL(28,5) = .0000001670 
         RUPTURE_SHELL(28,6) = .0000002749    
! --------------------
! Biquad
         ! MLN <28 or ==49
         RUPTURE_SHELL(30,1) = .00000001321  !.00000003069     
         RUPTURE_SHELL(30,2) = .00000002521  !.00000005533     
         RUPTURE_SHELL(30,3) = .00000003750  !.00000008252     

         RUPTURE_SHELL(30,4) = .00000001680  !.00000003133     
         RUPTURE_SHELL(30,5) = .00000003637  !.00000006587     
         RUPTURE_SHELL(30,6) = .00000005447  !.00000010300     

         ! MLN <28 or ==49
         RUPTURE_SOL(30,1)   = .00000003124  !.00000008026     
         RUPTURE_SOL12(30,1) = .00000004905  !.00000013200     
         RUPTURE_TET4(30,1)  = .00000003162  !.00000007523     
         RUPTURE_TET10(30,1) = .00000012270  !.00000030150     

         RUPTURE_SOL(30,2)   = .00000002500  !.00000001929     
         RUPTURE_SOL12(30,2) = .00000008000  !.00000011930     
         RUPTURE_TET4(30,2)  = .00000002500  !.00000001793     
         RUPTURE_TET10(30,2) = .00000007500  !.00000006588     
! --------------------
